home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-11 / kgclock.zip / SMDEMO.PRG < prev    next >
Text File  |  1992-08-13  |  473b  |  14 lines

  1. function main
  2.     local nErr
  3.     scroll()
  4.     @0,0 say padr(" Press any key to exit program",80) color "n/w"
  5.     CLOCK( 0, 70 )           // Install clock
  6.     inkey(0)                 // allow clock to run until keypress
  7.     nErr:=CLOCK()            // Remove clock
  8.     @3,0 say "Return code from clock is "+STR(nErr,3)     color "w+/n"
  9. return nil
  10.  
  11. function CLOCK(nRow,nCol)
  12.     local x:=IF(nRow==NIL.OR.nCol==NIL,BK_TICKREM(),BK_TICKINS(nRow, nCol))
  13. return x
  14.